;e (setq $print-project-monthly nil)
;e (setq $print-project-gs nil)
read (salary in dsk (pro he))
exe (m80b18 gs dsk (pro he))
read (m80b18 in dsk (pro he))
project total (m80b18 out dsk (pro he))